IF exists(SELECT * FROM dbo.sysobjects WHERE name='vulTellingOktober' AND xtype='P') 
BEGIN
	DROP PROCEDURE vulTellingOktober
END
GO

create procedure vulTellingOktober
as
declare @vorigJaar varchar(4)
set @vorigJaar = convert(varchar(4),datePart(yyyy,getDate()) - 1)

delete from tellingOktoberHulptabel

insert into tellingOktoberHulptabel(stamnr,famnaam, voornaam1,identificatieNr,
	straat,huisNr,busNr,postCode,
	natiecode,geboorteDatum,geslacht,
	instelling,adminGroep,hoofdstru,
	vtaal1,vtaal2,vtaal3,vtaal4,vtaal5,vtaal6,
	vHoofdstru,vAdminGroep,vInstelling,vAttest,gestartOp)
select gv.stamboekNr,left(l.achternaam,50),left(l.voornaam,30),
	left(a.identiteitskaart,11),
	left( a.straat,33),left(a.nummer,4),left(a.busnummer,6),a.postcode,
	left(a.nationaliteit,5),a.geboortedatum,upper(Left(a.geslacht,1)),
 	v.instelling,v.administratieveGroep,v.hoofdstructuur,
	isNull(v.vreemdeTaal1,'0000'),isNull(v.vreemdeTaal2,'0000'),isNull(v.vreemdeTaal3,'0000'),
	isNull(v.vreemdeTaal4,'0000'),isNull(v.vreemdeTaal5,'0000'),isNull(v.vreemdeTaal6,'0000'),
        case left(l.klas,1) when '1' then '211' else '311' end,
	isNull(vorige.administratieveGroep,'000000'),
	isNull(vorige.instelling,'000000'),
	isNull(vorige.attest,'4'),
	gv.gestart
from (((leerlingen as l
	left join vertaaltabelKlas as v 
	  on v.klas= l.klas)
	left join gestartVerlaten as gv
	  on gv.schoolnummer = v.schoolnummer
	left join administratieveGegevens as a 
	  on l.inschrijvingsNr=a.inschrijvingsNr )
	left join studiegegevens..alleGestarteLln as ge 
	  on l.inschrijvingsNr=ge.inschrijvingsNr )
	left join (select distinct b.inschrijvingsNr, 
		   case right(left(b.attestcode,2),1) when 'A' then '1'
						      when 'B' then '2'
						      when 'C' then '3'
						      else '4' end 
		    as attest,
		    vk.instelling,vk.administratieveGroep
                   	from studiegegevens.dbo.beslis as b
		     	  left join vertaaltabelKlas as vk
				on vk.klas = b.klas
		    where b.jaar = @vorigJaar) as vorige
	  on l.inschrijvingsNr=vorige.inschrijvingsNr
where (len(l.stamNr) = 7) and (l.klas <> 'weg')
order by l.klas,l.naam1